home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / blankery / madhouse / developer / amos-demo / amosdemo.asc < prev    next >
Text File  |  1995-02-24  |  4KB  |  121 lines
  1. '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­- 
  2. '
  3. '                WICHTIGE HINWEISE FÜR AMOS-PROGRAMMIERER !
  4. '
  5. 'Die Procedures "_ENDE" und "_FEHLER" lassen sich in jedem Blanker verwenden,
  6. 'um die von MADHOUSE benötigten Dateien zu erzeugen. 
  7. '
  8. 'Um diesen Blanker compilierfähig zu machen, müssen alle die Textstellen   
  9. 'dekommentiert werden, hinter denen sich unmittelbar ein AMOS-Befehl befindet. 
  10. 'Weiterhin sollte dann auch der Befehl "Edit" in der Procedure "_ENDE" ent-
  11. 'fernt werden. Wer will, der kann auch die vorgegebenen Parameter in der 
  12. 'Parameterabfrage (die vier Befehle nach "Else") löschen, da der Blanker bei 
  13. 'der fehlenden "Prefs"-Datei sowieso aussteigt.
  14. '
  15. 'WICHTIG!!!
  16. 'Die passenden AMOSPro_Compiler Einstellungen solltet, müsst ihr zwangsläufig  
  17. 'aus unserer mitgelieferten Einstellung "AMOSPro_Compiler_Config" entnehmen. 
  18. 'Diese Datei einfach mit "LoadConfig" in der "CompilerShell" laden, fertig.  
  19. 'Die Datei befindet sich übrigens im "/Developer/AMOSDemo/"-Verzeichnis. 
  20. '
  21. '                                   der total verblödete AMOSPro-Programmierer 
  22. '----------------------------------------------------------------------------- 
  23.  
  24. '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­   
  25. '­                                                                           ­   
  26. '­                                AMOS DEMO                                  ­     
  27. '­                                                                           ­   
  28. '­                Version 1.0  by Aicke Schulz  24.02.1995                   ­       
  29. '­                                                                           ­   
  30. '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­   
  31.  
  32.  
  33. '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­   
  34. '­                                Parameter                                  ­ 
  35. '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­     
  36.  
  37. If Exist("Ram:Madhouse_Storage/Prefs")
  38.    Open In 1,"Ram:Madhouse_Storage/Prefs"
  39.    Input #1,DEMOTEXT$
  40.    Input #1,FARBE
  41.    Input #1,BEWEGEN
  42.    Input #1,DAUER
  43.    Close 1
  44. Else 
  45.    DEMOTEXT$="$Hi, das ist ein Demotext des AMOSDemo-Beispielblankers von MADHOUSE."
  46.    FARBE=2
  47.    BEWEGEN=1
  48.    DAUER=1
  49.    'System  
  50. End If 
  51.  
  52. DEMOTEXT$=Mid$(DEMOTEXT$,2)
  53.  
  54. '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­   
  55. '­                              Vorbereitungen                               ­ 
  56. '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­   
  57.  
  58. 'Break Off 
  59. Request Wb 
  60. Set Sprite Buffer 16
  61. 'On Error Proc _FEHLER 
  62.  
  63. Screen Open 0,640,8,2,Hires
  64. Flash Off : Curs Off : Hide 
  65.  
  66. If FARBE=0 : Palette $0,$FF0
  67. Else If FARBE=1 : Palette $0,$F00
  68. Else If FARBE=2 : Palette $0,$F
  69. End If 
  70.  
  71. GESCHWINDIGKEIT=1
  72.  
  73. Centre DEMOTEXT$
  74.  
  75. 'Amos Lock 
  76. MEIN_TIMER=Timer
  77.  
  78. '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­   
  79. '­                              Hauptschleife                                ­ 
  80. '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­   
  81.  
  82. Do 
  83.    If BEWEGEN=1
  84.       Add Y_BILDSCHIRM,GESCHWINDIGKEIT
  85.       If Y_BILDSCHIRM>240 or Y_BILDSCHIRM<0
  86.          GESCHWINDIGKEIT=-GESCHWINDIGKEIT
  87.       End If 
  88.    End If 
  89.    
  90.    Screen Display 0,128,Y_BILDSCHIRM+50,,
  91.    
  92.    Multi Wait 
  93.    If Mouse Key<>0 or Inkey$<>"" : _ENDE[1]
  94. Else If DAUER>0 and(Timer-MEIN_TIMER)/3000=DAUER : _ENDE[0] : End If 
  95. Loop 
  96.  
  97. '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­   
  98. '­                               Proceduren                                  ­ 
  99. '­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­   
  100.  
  101. Procedure _ENDE[ART]
  102.    
  103.    'If ART=1 Then Open Out 1,"Ram:Madhouse_Storage/Stopblank" 
  104.    'System
  105.    Edit 
  106.    
  107. End Proc
  108. Procedure _FEHLER
  109.    
  110.    If Errn=24 : FEHLER$="OUT OF MEMORY."
  111.    Else FEHLER$="AMOSPro error number:"+Str$(Errn)+" (see the doc!)"
  112.    End If 
  113.    
  114.    Append 1,"Ram:Madhouse_Storage/Errors"
  115.    Print #1,FEHLER$
  116.    Close 1
  117.    
  118.    _ENDE[0]
  119.    
  120. End Proc
  121.